home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Python 1.3.3 / stdwin / Ports / mac / pstring.c < prev    next >
Text File  |  1995-12-21  |  516b  |  26 lines
  1. /* Function to convert a C string to a Pascal string.
  2.    The conversion is not in-line, but returns a pointer to a static buffer.
  3.    This is needed when calling some toolbox routines.
  4.    MPW does the conversion in the glue.
  5. */
  6.  
  7. #include "macwin.h"
  8.  
  9. #ifndef CLEVERGLUE
  10.  
  11. unsigned char *
  12. PSTRING(src)
  13.     register char *src;
  14. {
  15.     static Str255 buf;
  16.     register unsigned char *dst;
  17.     
  18.     dst = &buf[1];
  19.     while ((*dst++ = *src++) != '\0' && dst < &buf[256])
  20.         ;
  21.     buf[0] = dst - &buf[1] - 1;
  22.     return buf;
  23. }
  24.  
  25. #endif /* CLEVERGLUE */
  26.